home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_86-05_1986_Verlag_Heinz_Weise_de.d64 / print-file .lsp < prev    next >
Text File  |  2023-02-26  |  1KB  |  30 lines
  1. (print-on-screen expr (lambda (ga fn) 
  2. (prog (e) (cond ((eq ga 8) (open 1 ga 
  3. 2 (pack (list fn ",u,r")))) (t (open 
  4. 1 ga 0 fn))) (input 1) loop (setq e (
  5. read)) (cond ((atom e) (close 1) (
  6. normal) (return t))) (print-props (
  7. car e) (cdr e)) (go loop))))
  8. (print-file expr (lambda (ga fn) (
  9. prog (e) (cond ((eq ga 8) (open 1 ga 
  10. 2 (pack (list fn ",u,r")))) (t (open 
  11. 1 ga 0 fn))) (open 2 4) loop (input 1)
  12.  (setq e (read)) (normal) (cond ((
  13. atom e) (close 1) (close 2) (return t)
  14. )) (output 2) (print-props (car e) (
  15. cdr e)) (normal) (go loop))))
  16. (print-props expr (lambda (a p) (cond 
  17. ((null p) nil) (t (pp (cond ((eq (car 
  18. p) (quote expr)) (cons (quote de) (
  19. cons a (cdr (cadr p))))) ((eq (car p) 
  20. (quote fexpr)) (cons (quote df) (cons 
  21. a (cdr (cadr p))))) ((eq (car p) (
  22. quote macro)) (cons (quote dm) (cons 
  23. a (cdr (cadr p))))) ((eq (car p) (
  24. quote value)) (list (quote setq) a (
  25. list (quote quote) (cadr p)))) (t (
  26. list (quote defprop) a (car p) (cadr 
  27. p))))) (terpri) (print-props a (cddr 
  28. p))))))
  29. nil
  30.